home *** CD-ROM | disk | FTP | other *** search
/ Aminet 38 / Aminet 38 (2000)(Schatztruhe)[!][Aug 2000].iso / Aminet / util / rexx / updatelibs.lha / UpdateLibs / UpdateLibs.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  2000-05-27  |  638 b   |  19 lines
  1. ; Batch-Programm zum aktuallisieren von LIBS: von CD
  2. ; V1.0
  3.  
  4. run >NIL: Work:Anwender/arcHandler/ArcHandler
  5. Echo "*E[31;40m" NOLINE
  6. RequestFile >ENV:Path DRAWERSONLY TITLE "Schublade wählen:"
  7.  
  8. FailAt 25
  9. Echo "Ich lese nun das Directory "$Path" mit Unterverzeichnissen !!!"
  10. Resident >NIL: Work:CUser/LHA pure
  11. Resident >NIL: Work:CUser/DVC pure
  12. CD $Path
  13. LIST >T:UpL PAT "#?(.library|.device|-handler|filesystem|.country|.language|.class|.datatype|.gadget|.image|.audio|.spobject|.svdriver|.svobject|.mui|.mcc|.mcp|.accent|xfd)#?" ALL LFORMAT "Work:Cuser/dvc %S%S"
  14. Execute T:UpL
  15.  
  16. Delete >NIL: ENV:Path
  17. Resident LHA remove
  18. Resident DVC remove
  19.